www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admin_usergroup\D_admin_group.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <% AJAXshowLoader() %> <style type="text/css"> <!-- .STYLE4 { color: #FFFFFF; font-weight: bold; } --> </style> <% biao="[ND_userGroup]" sys_content_type=trim(request("sys_content_type")) if find_dataw("qitashezhi123","0",14)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <br /> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px"> <script language="javascript"> function delact(id){ if (confirm("确认删除?")==1){ self.location="D_del_group.asp?id="+id; } } </script> <br /> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td width="8%" height="27" align="center" class="adminth"><span class="STYLE4">id</span></td> <td width="7%" height="27" align="center" class="adminth"><span class="STYLE4">用户等级</span></td> <td width="48%" align="center" class="adminth"><span class="STYLE4">用户组名称</span></td> <td width="20%" align="center" class="adminth"><span class="STYLE4">操作</span></td> </tr> <% CurrentPage=replacebadchar(request("page")) if CurrentPage="" then CurrentPage=1 else if not IsNumeric(CurrentPage) then CurrentPage=1 else if int(CurrentPage)<=0 then CurrentPage=1 else CurrentPage=replaceBadchar(request("page")) end if end if end if maxperpage=15 aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/") fileNamexx = aryxx(ubound(aryxx)) strFileName=fileNamexx set Rs=server.CreateObject("adodb.recordset") sql="select * from "&biao&" order by clng(grades) desc" Rs.open sql,conn,1,1 if not Rs.eof then Rs.pagesize=MaxPerpage totalnumber=Rs.recordcount if totalnumber mod maxperpage=0 then MaxPage= totalnumber \ MaxPerpage else MaxPage= totalnumber \ MaxPerpage+1 end if if int(CurrentPage)>int(MaxPage) then CurrentPage=MaxPage else CurrentPage=CurrentPage end if Rs.absolutepage=CurrentPage for ni=1 to MaxPerpage if Rs.eof then exit for %> <tr bgcolor="#EDF8FE"> <td width="8%" height="27" align="center"><%=rs("id")%></td> <td width="7%" height="27" align="center"><%=rs("grades")%></td> <td width="48%" align="center"><%=left(rs("name"),44)%></td> <td width="20%" align="center"> <a href="D_edit_group.asp?id=<%=rs("id")%>">编辑</a> <%if rs("is_sys")<>"1" then%> <a href=# onclick="delact('<%=rs("id")%>');">删除</a> <%else %> (系统用户组无法删除) <%end if%> </td> </tr> <% Rs.movenext next else %> <tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr> <%end if Rs.close set Rs=nothing %> <tr> <td colspan="7" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td> </tr> </table> </form> </div> <script language=javascript> AJAXfade(1,'l_list'); AJAXfade(1,'l_lists'); </script> <% AJAXcloseLoader() %>